10 POKE52,32:POKE56,32:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
40 SYS57812"MENUBOX C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
50 POKE53280,0:POKE53281,0:PRINT"[147][154]"CHR$(14)
60 MT=49152:FM=15052:RG=829:SYSMT+6,0,39,0,24,2
70 X1=1:X2=38:Y1=1:Y2=23:C=5:Z=0
80 FORI=1TO9:SYSMT+3,X1,X2,Y1,Y2,219,C
90 C=C+1:X1=X1+1:X2=X2-1:Y1=Y1+1:Y2=Y2-1:NEXT:SYSMT+3,X1+1,X2+1,Y1+1,Y2+1,219,5
100 SYSMT+3,X1,X2,Y1,Y2,160,0
110 RW=11:CL=17:GOSUB920:PRINT"[204]OADING"
120 RW=13:CL=14:GOSUB920:PRINT"[198]ONT [205]ANAGER![154]"
130 SYS57812"FONT MANAGER",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
140 REM  [ MAIN ]
150 SYSFM+Z
160 S=PEEK(RG):Z=PEEK(RG+1):D=PEEK(RG+2)
170 ONDGOTO200,200,200,320,610,40000,190
180 GOTO150
190 POKE53280,14:POKE53281,6:POKE53272,23:PRINT"[147][154]";:END
200 REM [ INSTRUCT ]
202 IN$="I.FM"+STR$(D)
205 OPEN15,DV,15,"R0:"+IN$+"="+IN$:INPUT#15,ER:CLOSE15
207 IFER=63THEN250
210 SYSMT+6,0,39,10,13,3
220 RW=11:CL=3:GOSUB920:PRINT"[201]NSERT THE [198]ONT [205]ANAGER DISK INTO"
230 RW=12:GOSUB920:PRINT"THE DRIVE AND PRESS [210][197][212][213][210][206]..."
240 GOSUB890:PRINT"[147]":GOTO205
250 SYSMT+63,0
260 SYSMT+27,IN$,DV,32768
270 SYSMT+6,0,39,0,24,6
280 GOSUB860
290 SYSMT+48,32768:N=F%-1
300 SYSMT+57,1,38,1,21,0,5,13,13,1,N,0
310 GOTO150
320 REM [ SAVE ]
330 SYSMT+6,0,39,0,24,14
340 RW=1:CL=9:GOSUB920
350 Q$="[215][207][210][203]":IFSTHENQ$="[193][213][216]."
360 PRINT"** [211][193][214][197] "Q$" [198][207][206][212] **"
370 RW=4:GOSUB920:PRINT"[198][201][204][197][206][193][205][197]? ";
380 SYSMT+66,14,3,14,""
390 IFW$=""THEN570
400 FL$="F."+W$
410 GOSUB920:PRINT"[211][193][214][201][206][199]  [154]F."
420 PRINT"[212]O TEST THIS FONT, EXIT THE [198]ONT"
430 PRINT"[205]ANAGER TO [194][193][211][201][195]. [204]OAD THE FONT"
440 PRINT"USING THE [204][207][193][196] [211]YSTEM [195]ALL:"
450 PRINT"[153]SYS57812"CHR$(34)FL$CHR$(34)",DV,0"
460 PRINT"POKE780,0:POKE781,0:POKE782,[154]PAGE"
470 PRINT"[153]SYS65493"
480 PRINT"[154][204]OCATION:     [208]AGE:    [214]AL:"
490 PRINT"[154]8192  ($2000)    32      24"
500 PRINT"[154]10240 ($2800)    40      26"
510 PRINT"[154]12288 ($3600)    48      28"
520 PRINT"[154]14336 ($4400)    56      30"
530 PRINT"[154][212]HEN JUST POKE 53272,VAL[154] TO SEE IT."
540 OPEN15,DV,15,"S0:"+FL$:CLOSE15
550 SA=32:EA=40:IFSTHENSA=40:EA=48
560 SYS57812FL$,DV,0:POKE193,0:POKE194,SA:POKE174,0:POKE175,EA:SYS62954
570 GOSUB830
580 OPEN15,DV,15:INPUT#15,EN$,EM$,ET$,ES$
590 CLOSE15:RW=22:CL=6:GOSUB920:PRINT"[155][196][207][211] [211]TATUS: "EN$","EM$","ET$","ES$
600 RW=23:GOSUB920:PRINT"[158][208]RESS 'FIRE' TO CONTINUE...[154]":GOSUB890:GOTO150
610 REM [ LOAD ]
620 SYSMT+6,0,38,0,24,14
630 RW=1:CL=9:GOSUB920
640 Q$="[215][207][210][203]":IFSTHENQ$="[193][213][216]."
650 PRINT"** [204][207][193][196] "Q$" [198][207][206][212] **"
660 GOSUB860:SYSMT+63,1
670 SYSMT+6,2,36,2,21,15
680 SYSMT+54,"$:F.*",DV,57344
690 N=F%+1:IFNTHEN730
700 GOSUB830
710 RW=22:CL=1:GOSUB920:PRINT"[212]HERE ARE NO 'F.' FILES ON THIS DISK!"
720 FORP=0TO1999:NEXT:GOSUB830:GOTO570
730 SYSMT+48,57344
740 SYSMT+60,3,3,19,0,3,3,3,0
750 FL$=W$:GOSUB830
760 RW=22:CL=8:GOSUB920:PRINT"[204]OAD "FL$"? ";
770 SYSMT+66,1,14,1,"Y"
780 IFW$="N"ORW$="[206]"THEN570
790 RW=22:CL=8:GOSUB920:PRINT"[159][204]OADING "FL$
800 AD=32:IFSTHENAD=40
810 SYS57812FL$,DV,0:POKE780,0:POKE781,0:POKE782,AD:SYS65493
820 GOTO570
830 RW=22:CL=1:GOSUB920:PRINT"                                     "
840 RW=23:GOSUB920:PRINT"                                     "
850 RETURN
860 RW=22:CL=4:GOSUB920:PRINT"[154]CURSOR KEYS: UP/DOWN   [[210][197][212][213][210][206]]"
870 RW=23:GOSUB920:PRINT"[198]-KEYS: PAGE UP/DOWN   TO EXIT"
880 RETURN
890 A=(PEEK(56320)AND16):IFATHEN890
900 RETURN
910 REM [ PRINT AT ]
920 POKE214,RW:POKE211,CL:SYS58732:RETURN
10000 DV=PEEK(186):N$="B.FONT MANAGER"
10010 OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END